home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / forthcmp.zip / EXEGO.SCR < prev    next >
Text File  |  1992-03-30  |  2KB  |  1 lines

  1. \ HEADER FOR .EXE  PROGRAMS                      13:54 11/30/91 COPYRIGHT 1985, 1991 (C) BY THOMAS ALMY.  ALL RIGHTS RESERVED   Permission is granted to registered users of ForthCMP to        sell or distrubute computer programs incorporating the compiled contents of this file.                                                                                                          MS is a trademark of Microsoft Corporation.                                                                                     This file is for MS-DOS EXE files, with or without a              separate stack segment.                                                                                                                                                                                                                                                                                                                                                                                                                                       \ HEADER FOR .EXE  PROGRAMS                    1 14:11 11/30/91 10  ASM HEX FWD,  ( skip the variables )      HEX  DSEG         VARIABLE DP       ( start free ram = HERE, set by END command ) VARIABLE S0       ( top of stack )                              VARIABLE R0       ( top of return stack )                       VARIABLE BASE     ( radix )  0A BASE !  ( decimal )             CSEG CREATE SEGOFFSET 0 ,  ( will be filled by END command )    THEN,   SEPSSEG? #IF                                            AX CS <SEG  SEGOFFSET [] AX ADD #ELSE AX SS <SEG  #THEN         AX DS >SEG                                                      SP AX MOV AX BP MOV AX DEC AX DEC AX S0 [] MOV                  rssize # BP ADD BP R0 [] MOV \ return stack                     0 0 IN/OUT NEED MAIN                                            CLD  CALL' MAIN   ( call main program )                         CODE bye  4C # AX MOV 21 INT END-CODE                           FORTH 0A = #IF   DECIMAL  #THEN  DSEG